home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1997 January / macpower199701.bin / AMUG / Publishing_19 / Alpha 6.5.sit / Tcl / SystemCode / smarterSource.tcl < prev    next >
Encoding:
Text File  |  1996-08-15  |  5.8 KB  |  148 lines  |  [TEXT/ALFA]
  1. ####################################################################
  2. #  EvoX - evolution in complex systems
  3. # 
  4. #  FILE: "smarterSource.tcl"
  5. #                                    created: 4/7/95 {1:44:01 pm} 
  6. #                                last update: 4/7/95 {1:46:55 pm} 
  7. #  Author: Vince Darley
  8. #  E-mail: <mailto:vince@das.harvard.edu>
  9. #    mail: Division of Applied Sciences, Harvard University
  10. #          Oxford Street, Cambridge MA 02138, USA
  11. #  <http://www.das.harvard.edu/users/students/Vincent_Darley/>
  12. #  
  13. ####################################################################
  14.  
  15. ## 
  16.  # This    file is    part of    the    package    "Vince's Additions".
  17.  # See its documentation for more details. 
  18.  # 
  19.  # Bug reports and feature requests - please email me.
  20.  ##
  21.  
  22. #############################################################################
  23. # BASED UPON 'smartSource.tcl':
  24. #
  25. # Copyright 1994, Robert Browning (osiris@cs.utexas.edu): This code is made 
  26. # freely available to anyone who can find a use for it. Consider it part of my
  27. # thanks to all those who have contributed to the freeware and shareware base.
  28. # (Especially Pete Keheler, without which this code would be pretty useless).
  29. # 
  30. # === Modifications by Vince, May 1995 ===
  31. # 
  32. #############################################################################
  33. # 
  34. # This file implements a replacement source command. It is intended to help
  35. # make the process of augmenting Alpha's code base with your own changes less
  36. # awkward, especially in the face of program updates. It also makes it so
  37. # that you no longer have to source files containing procedures that you want
  38. # to override in your UserStartup file.
  39. # 
  40. # Basically, you designate a directory (right now it has to be a directory
  41. # named TclExtensions in the $HOME directory) to contain your files. Then
  42. # anytime Alpha is instructed to source a file named filename.tcl, it will
  43. # first look in the directory you have designated, and if there is a file of
  44. # the identical name there (i.e. filename.extension) it will source that file
  45. # instead of the original one specified. If there are any files named
  46. # filename+*.extension it will source those in the order returned by glob after
  47. # either the original filename.extension or the replacement has been sourced.
  48. # 
  49. # For example, if your TclExtensions directory contains files named
  50. # latex+1.tcl and latex+2.tcl, then whenever you try to open a latex file
  51. # Alpha will first source the standard latex.tcl file, then latex+1.tcl, then
  52. # latex+2.tcl. If there was also a file named latex.tcl in the TclExtensions
  53. # directory then that file would be sourced in place of the standard
  54. # latex.tcl, then latex+1.tcl, then latex+2.tcl.
  55. # 
  56. # You may just want to use filename+.extension for a single extension file.
  57. # 
  58. # Note that latex+10.tcl would be sourced _before_ latex+9.tcl, so you
  59. # may wish to use latex+01.tcl ... latex+99.tcl to make things clearer.
  60. #
  61. #############################################################################
  62. #     Fixes:
  63. # 
  64. #    10/10/94: Fixed it to handle non .tcl file extensions.
  65. #   01/05/95: Resent to Pete due to earlier transmission error that replaced
  66. #             + characters with * characters.
  67. #
  68. #############################################################################
  69. # To Do:
  70. #
  71. #     What do you want?
  72.  
  73. ## 
  74.  # VMD May'95: <mailto:vince@das.harvard.edu>
  75.  # 
  76.  # Changed default directory to    the    the    alpha preferences directory.
  77.  # Changed extension to    '+'    rather than    'bullet' (option-8)    because
  78.  # of ascii    transmission problems -    lots of    people have    a non-working
  79.  # version of this file.
  80.  # 
  81.  # Passes through 'tclIndex' and 'prefs.tcl' unchanged.
  82.  # 
  83.  # Renamed this    file to    'smarterSource.tcl', originally    just to    differentiate
  84.  # it from the old crippled    versions.
  85.  # 
  86.  # IMPORTANT: Fixed    the    script so that it works    with path names    containing
  87.  # spaces.
  88.  # 
  89.  # Now implements part of a    new    mode-specific preferences mechanism. Every
  90.  # Alpha mode should have a    'dummy${mode}' proc, which is called to    ensure
  91.  # a particular    mode's tcl files have been sourced.    If such    a file is
  92.  # sourced,    smarterSource will subsequently    source a file '${mode}Prefs.tcl'
  93.  # in the preferences directory, if    it exists.
  94.  # 
  95.  # See "modePrefs.tcl",    for    the    other bits of the implementation.
  96.  ##
  97.  
  98. set tclExtensionsDir "$PREFS"
  99.  
  100. if {!$skipPrefs && [file exists "${tclExtensionsDir}"]} {
  101.     if {![string length [info commands oldSource]]} {
  102.         rename source oldSource
  103.     }
  104.     proc source {filename} {
  105.         global tclExtensionsDir modeFiles PREFS
  106.         set justName [file tail "$filename"]
  107.         set overrideFile "${tclExtensionsDir}:${justName}"
  108.         
  109.         # changed '#0' to '1'
  110.         if { $justName == "tclIndex" } { return [uplevel 1 oldSource ¥{$filename¥} ] }
  111.         if { $justName == "prefs.tcl" } { return [uplevel #0 oldSource ¥{$filename¥} ] }
  112.  
  113.         if {[file exists $overrideFile]} {
  114.             set returnVal [uplevel #0 oldSource ¥{$overrideFile¥} ]
  115.         } else {
  116.             set returnVal [uplevel #0 oldSource ¥{$filename¥} ]
  117.         }
  118.         
  119.         set baseName [string range ${justName} 0 ¥
  120.             [expr   [string length ${justName}] - ¥
  121.                     [string length [file extension ${justName}]] - 1]]
  122.         
  123.         ## 
  124.          # Mode    specific preferences stuff
  125.          ##
  126.         if [array exists modeFiles] {
  127.             if { [lsearch [array names modeFiles] $justName] != -1 } {
  128.                 foreach m $modeFiles($justName) {
  129.                     set f "${PREFS}:${m}Prefs.tcl"
  130.                     if [file exists "$f" ] {
  131.                         set returnVal [uplevel #0 oldSource ¥{$f¥} ]
  132.                     }
  133.                 }
  134.             }
  135.         }
  136.         
  137.         set extensionFiles ¥
  138.             [glob -nocomplain ¥
  139.                 "${tclExtensionsDir}:${baseName}+*[file extension ${justName}]"]
  140.     
  141.         foreach extensionFile $extensionFiles {
  142.             set returnVal [uplevel #0 oldSource ¥{$extensionFile¥} ]
  143.         }
  144.         return "$returnVal" 
  145.     }
  146. }
  147.  
  148.